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Main Entry 15-Sep-1984 93:46:03 VAX-11 Bliss-32 V4.0-7 1) 
14-Sep-1984 748:14 DISKSVMSMASTER: (NCP. Ske NCPMAIN.B32; 429 oad 
‘eee RTITLE "Main Entry’ 
3 § MODULE NCPMAIN (IDENT = 'V04-000', MAIN = et ig jan | 
3 rt Et fhe Mag PAM Lt L=GENERA 
sé ADDRESSING_MODE (NONEXTERNA SEE ENERAL) ) = 
3 5 BEGIN 
; 5 $9 i 
4 3 0 1 See RRA A RARER AAAAAAAAEAAERAEHAAAAAAAERETA ARETE ATERAAAAKERAEAE eee 
: 1! * 
3 10 10 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
3 11 11 1 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. # 
; \¢ Big ! it ALL RIGHTS RESERVED. - 
: 14 014 1 it THIS er F. FURNISHED UNDER A LICENSE AND MAY BE USED AND gt ha * 
4 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS F SUCH LICENSE AND WITH THE * 
3 16 Bog 1 !® INCLUSION O TH ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER © 
3 17 001 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 18 8018 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3 i bh : ss TRANSFERRED. * 
Py ; Y 
$ $3 0031 1 te He INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * é 
3 ¢ 00 ¢ 1 Ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ® $ 
3 Si b05z : ‘ CORPORATION. . : 
> 25 0025 1 '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
3 $$ 8 § : i: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : : 
; 28 0028 1 is . 
3 9 0080 1 VR RRA RAE AARA AAA AAA RAAAE REE AAA ETAT AREER AAAAAARAAAARAAAAAAERAAAAAAREE 
3 0 0030 1! 
; ; 0033 i 'e¢ 
; 0034 ! ; FACILITY: NCP Network Control Program 
cs ae 0035 ; ABSTRACT: 
; * 0037 ' NCP main entry and command Line acceptance 
: 33 st : ; ENVIRONMENT: VAX/VMS Operating System 
; 41 0041 i AUTHOR: Darrell Duffy . CREATION DATE: 17-August-1979 
; cs D948 MODIFIED BY: 
>; «45 0045 | v03-003 Aang ped Paul R. DeStefano 05-Feb-1984 
j 2 Boe$ } No longer need to save CLI verify state. 
: 48 : 1: v03-002 nPGo002 Bob Grosso Aug -1982 
3 $3 <3 ' Stop NCP from automatically starting the ote te 
> 51 051 1: V03-001 RPG47232 Bob Gro 21-Jul-1982 
2's 26 : Increase size of adeno tasut buffer, sysin_buf_siz. 
; & 54 1 i 
; i 55 ! Change all non-local references to general addressing. 
; 3$ 3$ 1 i vO0O1 ——- TMHO001 Tim Halvorsen 13-Jun-1981 


vO02 = TMHO002 Tim Halvorsen 13-Jul-1981 
| 


NGPRAIN ain Entry ybcbeoctgee 5:46:05 WMeIY elsetcd2 v4,0-74 eo 


SVMSMASTER: CNCP.SRCINCPMAIN.B32; 79 
28 ! If invoked via DCL foreign command and there is 
91! 
re 


text following the “verb”, then execute the text 
as a single NCP command and exit 


ZS Se 
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SELESRELLSSSLESLANLSSELSALASS 


a a a a at st 


ntr 
1 
ZSBTTL ‘Definitions’ 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
NCPSCOND_HDLR, 
NCPSREAD_CMD 


INCLUDE FILES: 


LIBRARY "OBJ$:NCPLIBRY.L32'; 
LIBRARY : SYSSLEBRARY: STARLET 32"; 
LIBRARY ‘SYSSLIBRARY:TPAMAC.L32'; 
1 

t 


i MACROS: 


EQUATED SYMBOLS: 
! OWN STORAGE: 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
NCPSINIT_TRMIO 
' NCP$STARTNETACP : NOVALUE, 


NCPSPARSE~ CMD, 
NCPSUNTEL 
ACTSVRB_CLEXEC, 


' Estab 
LIBSGET_FOREIGN: ADDRESSING_MODE (GENERAL) 


14 
VERE PESREAE  WMSLIASAEHERe 


Initialize terminal 1/0 

Start the network if not 

Read a Line from SYSSINPUT 
Write a Line to SYSSOUTPUT 

Parse a command Line 

Remove the tell executor 

Remove the current executor and 
Lish the local node as exec 


0-74 P 
OERCINCPMAIN.B32;1°"" (2 


; ! Get foreign command Line 


See 


4 


14 
r 18-5 =1984 23:46:03 VAX-11 Bliss-32 V4.0-74 id 
/ 14 200-138 93:28:93 TT EKSUMGHASTERSLWCP SRCINCPMAIN.B32:10 7" (3) 


Main Entry 


ZSBTTL ‘"NCPSMAIN Main Entry' 
ROUTINE NCPSMAIN = 


'4¢ 


i FUNCTIONAL DESCRIPTION: 
Main entry for NCP 
FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


Exit code for NCP 
SIDE EFFECTS: 


<z 


vents 


3 
m 
=> 


oe 
i 
ze 


LOTS 
BEGIN 
BUILTIN 
FP, ' Frame pointer 
! Argument pointer 
LITERAL 


SYSIN_BUF_SIZ = 1024 


OWN 
CMD_DSC : VECTOR C2], 


! Size of input buffer 


' Command Line buffer descriptor 


Boo GRA RU MOD NONE WN OOO SOU FU HO DO0 NOU FUT ODO NOME UI MOD 


SYSIN_BUF : ! Sys$input buffer 
VECTOR CSYSIN_BUF_SIZ, BYTE] 
BIND 
NCP_PMT_DSC = ! Descriptor of NCP prompt 
CID ("NCP>'), 
CLIBLK = AP: REF BBLOCK ! Arg block from calling cli (DCL) 
GLOBAL BIND 
0 NCP$_CMDBUF _DSC = ' Descriptor for sysinbuf 
UPLIT (SYSIN_BUF_SIZ, SYSIN_BUF ) 
LOCAL 


CDOCGOOOOCOOOCOCOCOOCOCOCOCOCOSOS OOOO OOOO OOSOOOOOOOOOOOOOOOOOOOOOOOOOO Zs 

ee ee ce cm ce ee ee ee eed ed od od 
tte at en Sh RR ne eg ee ee ey he Nae a eee ee er 

PROPOPOPOPOPOPONOPOPONIPUPONINUPUNINIPIPININPUPININIPIDINNY 3 9 tt tt ee 


ee ee ed ad ed dd = 8 


PPA ES BB EEE EEE PW ye ed a ed 


o 
ww 


RTN_DSC : VECTOR (2) ! Returned descriptor 


14 
NCPMAIN Main Entry 1$-Se 1984 23:46:03 VAX-11 Bliss-32 V4.0-74 Page 5 
yoen 000 NCPSMAIN Main Entry 12-80 8= 1382 93:28:93 DP EKSUMGHASTERSCWCP SRCINCPMAIN.B3251 ’ (3) 
: 188 189 ; 
3 138 198 sah 
; 171 18 NCP$G_BEGIN_ZERO, ! Parameter data blocks to clear 
: \%¢ 170 NCP$G_END_ZERO, ' End of the blocks 
: 17 171 NCP$G_STATE_TBL, ! State table for parsing 
: 176 76 NCP$G_KEY_TBL 
2 eee: ; 
3 177 ee NCPSINIT_TRMIO (); ! Initialize terminal 1/0 
; 179 138 ! NCPSSTARTNETACP (); ' Start the network, if not started 
; 139 178 -FP = NCPSCOND_HDLR; ! Enable the handler 
; 186 199 ACTSVRB_CLEXEC (); ! Establish Link to local node 
; «184 8186 IF LIBSGET FOREIGN(NCPS CMDBUF _DSC 0, CMD DSC) ! If a foreign command, 
> «6185 oie AND .CAD_DSC CO] NEG 0 ! and there is a command Line, 
3 196 184 THEN 
; «18 0185 
3; «188 9186 CMD_DSC ¥ = SYSIN_BUF; ! Construct descriptor of Line 
> 189 018 CHSFILL(O,NCPS$G_END-ZERO-NCP$G_BEGIN_ZERO, ' Zero parameters 
; 190 oi86 NCP$G_BEGIN ZERO); 
: 191 189 NCPSPARSE_CMDTCMD_DSC,NCP$G_STATE_TBL,NCP$G_KEY_TBL,RTN_DSC); 
; 135 0190 RETURN TROE; 
; 19 B19 END; 
3 «6194 136 
s 195 019 WHILE 
: 196 0194 BEGIN 
; 197 0195 LOCAL 
; 198 Bi9e READ_STATUS; 
3; 6199 197 
3 $e Bie READ_STATUS = NCPSREAD_CMD ! Read Line into buffer 
5 oes 3500 NCP$_CMDBUF _DSC, ! Buffer descriptor 
; a 9201 NCP_PMT_DSC? ! Prompt descriptor 
: 204 f44 DSC ! Return dsc of Line 
; 205 020 ); 
: 206 0204 IF NOT .READ_STATUS 
: 207 0205 THEN 
: 208 B¢06 4 BEGIN 
3 209 07 5 IF (.READ_STATUS NEQ RMS$_EOF) 
; 210 08 4 TH 
3 11 09 4 RETURN .READ_STATUS 
: \ 10 4 ELSE FALSE ! EOF terminates without error 
$ 1 0211 4 N 
3 14 \¢ ELSE TRUE 
: 15 1 END 
: 16 14 dO ! Do so until error returned 
3 ? ys BEGIN 
: ) iH CHBE TUL ! Zero the parameter block area 
F 1 i8 0 ' FILL character 
; ‘ 0 NCP$G_END_ZERO - NCP$G_BEGIN.ZERO, ! Count 
i 9¢3 | NCPSG_BEGIN_ZERO T Beginning address 


NCPMAIN Main Entr 15-Sep-1984 23:46:03 VAX-11 Ol ise: 32 V4.0-7 
Youn 000 NCPSMAIN Twain Entry 14- ~tep- 1382 93:48:93 DISKSVMSMASTER: NCP see NCPMAIN.B32; fag © «3$ 
3 5 3 

; § ¢ hy ae CMD ! Parse the command 

3 208 

: 209 3 NcPSG “stare TBL, 

3 0 3 NCP$G_K Y_TBL, 

s 1 RIN sSsce 

* ¢ ? e 

; ¢ 0 § NCPSUNTELL () ! Remove the tell executor 

: 3? 0 4 END 

; 38 9 6 RETURN TRUE ! Return with success 


TITLE settee Main Entry 
-IDENT \V04-000\ 


-PSECT SPLITS,NOWRT ,NOEXE,2 


3E 50 43 4€ 00000 P.AAB: .ASCII \NCP>\ 3 
00000004 00004 P.AAA: .LONG : 
00000000° 00008 -ADDRESS P,AAB ; 
00000400 Q000C P.AAC: .LONG : 
00000000" 00010 »ADDRESS SYSIN_BUF : 


-PSECT SOWNS,NOEXE,2 


00000 CMD ye ¥ gS.K® 8 
00008 SYSIN_B 


UF iL KB 1024 

NCP_PMT_DSC= P. A 

NCPS_CMDBUF _DSC== AAC 

EXTRN NCPSIN NIT TRMIO, NCPSREAD_LINE 

ENT RN NCPSWR RTE LINE, NCPSPARSE_CMD 
EXTRN NCPS$UN NTELL ACT SVRB_ CLEXEC 
EXTRN LiBsce FORE! 
-EXTRN NCPS$G BEG! 


NEZERO 
-EXTRN NePSG G_-END “HERO, NCPS$G_STATE_TBL 
-EXTRN NCPSG_KEY_T 


-PSECT S$CODES,NOWRT,2 
OFFC 00000 NCPSMAIN: 
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e 


“WORD Save R2,R3,R4,R5,R6,R7.RB,RI,R10,R11 : 0110 

B 909 0 06 9E 0000 MOVAB NCPSPARSE CMD, R11 - F 

A G 9—E 0000 MOVAB NCP$G_STATE_TBL, R10 ; 

9 6 9— 0001 MOVAB NCPS$G"KEY_TBL F 

3 G 9—E 0001 MOVAB NCP$G~BEGIN_ZERO, R8 : 

0 0 ' 9E 43 MOVAB NCP$_CMDBUF-DSC, R7 : 

6 000 ' H MOV BSC, : 

C C SUBL a8, SP : 
000000006 0 FB OOO2F CALLS NCPSINIT_TRMIO : 0175 
6D 00000000V 9E 00036 MOVAB NCPSCOND _HDLR, (FP) : 0178 


; Routine Size: 173 bytes, Routine Base: S$CODE$ + 0000 
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NCPMAIN Main Entr 15-Sep-1984 23:46:03 VAX=11 Bliss-32 V4.0-74 Page N 
vO4-000 NCPSMAIN. Main Entry 127860-1 984 $3:28:12 — DISKSVNGHASTERSENCE SRC NCPMAIN.B32; 1 V 
000000006 00 0 £8 0003p CALLS #0, ACTSVRB_CLEXEC ; : 
DD 00044 PUSHL 6 : : 
5 D4 O0046 CLRL = =(SP) : ; 
DD 0004 PUSHL R7 : : 
000000006 00 3 FB 004A CALLS #3, LIBSGET_FOREIGN : : 
1E 0 EY 0009 BLEC =_«RO,_*18 : ; 
66 3 00054 TSTL — CMB_DSC ; : 
1A 43 00056 BEQL ~=sT$ : 
04 Ab 08 Ab YE 0005 MOVAB  SYSIN BUF, CMD DSC+4 : 
0000* 8F 00 6€ 00 2C 0005D movcS #0, (SP), #0, B<NCP$G_END_ZERO-- : : 
6B 0064 NCP$G_BEGIN_ZERO>, NCP$G_BEGIN_ZERO : : 
4708 gf BB b863 PUSHR #*M<R9,SP> : : 
044 F BB 00069 PUSHR  #*M<R6,R10> : ; 
6B 4 FB 90060 CALLS #4, NCPSPARSE_CMD : : 
Z 11 90070 3$ ; : 
6 DD 00072 18 PUSHL 6 ; : 
F8 A? OF 00074 PUSHAB NCP_PMT_DSC : : 
57 DD 00077 PUSHL R7 : : 
00000000v 00 03 FB 00079 CALLS #3, NCPSREAD_CMD ; : 
OA 0 €8 00080 BLBS § READ_STATUS,~2 ; : 
0001827A BF 50 D1 00083 CMPL §- READ-STATUS, #98938 ; : 
1D 13 0008A BEQL «6-38 ; : 
04 0008C RET ; : 
0000* 8F 00 6€ 00 2C 00080 2s: MOVCS #0, (SP), #0, #<NCP$G_END_ZERO-- ; : 
68 —— 000% NCP$G_BEGIN_ZERO>, NCP$G_BEGIN_ZERO : : 
4200 8F BB 00095 PUSHR  #*M<R9,SP> : : 
0440 8F BB 00099 PUSHR #*M<R6,R10> : : 
6B 04 FB 0009D CALLS #4, NCPSPARSE_CMD ; : 
000000006 00 00 FB OOOA0 CALLS #0, NCPSUNTELC : : 
C9 11 O00A7 BRB 1$ ; : 
50 01 DO QO0A9 3$: MOVL #1, RO ; : 
04 OOOAC RET ; : 


oe 
a 
fs 
mn 


ZSBTTL ‘"NCPSREAD_ CMD Read and build 


ve 


GLOBAL ROUTINE NCPSREAD_CMD (INP_DSC, PM 


15 
NCPMAIN tr B.S 1984 23:46:03 VAX=-11 Bliss-32 V4.0-74 P 
¥O6~000 R D. tmp Read and build a command 22800-138e $3508:94 DL aKSVMGMASTERSENCP. SRCINCPMAIN. B32; 109° «a5 
mand’ 
SC, RTN_DSC) = ! 


14 


144 
! FUNCTIONAL DESCRIPTION: 


Read a command with comments (!) and continuation Lines (-) 
and return a descriptor to he Line within the input buffer. 


4 n 
N A 
: 241 1 
; 8 3 | 
>; 26 40 1 
> 246 41 1 
; 245 tg 1 
; 24 45 1! 
3 26 44 1! 
: 248 45 1! 
> 249 ‘$ 1! 
3 29 rtf : FORMAL PARAMETERS: 
3 26 49 1! INP_DSC Address of the input buffer descriptor 
$ 50 1! PMT_DSC Address of a descriptor of a prompt string 
: 2¢ 8 23 ! RTN_DSC Address of the descriptor to return 
; 256 0 2g 1 ! IMPLICIT INPUTS: 
; 257 0254 1! 
3 $28 0255 1! NONE © 
s 2e7 8 § 1! 
; 260 57 1 ! IMPLICIT OUTPUTS: 
; 261 0258 1! 
; $06 0259 1! NONE 
; 26 0260 1! 
i 264 ose! 1 ! ROUTINE VALUE: 
3 469 0 °¢ 1 ! COMPLETION CODES: 
; 266 0265 1! 
; 267 0264 1! Return code from NCPSREAD_LINE 
; 268 0265 1! 
: 269 oseo 1 ! SIDE EFFECTS: 
3 670 0267 1! 
3 71 0268 1! NONE 
; sf¢ os¢e 1! 
Pt ay, 0270 1 !-- 
: 276 0271 1 
; 275 os 78 BEGIN 
; en 027 
s av 0274 LITERAL 
; 278 0275 SPACE = 32, ! Character code for a space 
3 44 og 76 § TAB = ! Character code for a tab 
; 281 0278 2 
3 BY 0279 2 MAP 
: Sea 0581 RINSE: REF VECTOR t2): Eaten aeenael denertas 
3 % ‘ ' Return command descriptor 
H she 0983 PMT_DSC REF VECTOR $3 ! Prompt descriptor , 
3 Hi 0284 
; 288 8 +H L 
3; 289 $ CMD_DSC : VECTOR (2), ' Temp descriptor for command 
; 290 028 STATUS, ' Hold status value here 
3 1 8 $8 CHAR, ! Temp for character 
:; 29 9 LAST_ADR ' Temp for address of last byte of 
3 7 8 + ' command 
3; 6295 3 
: 2% 9 MD_DSC £0} = .INP_DSC FO: ! Initialize temp dsc 
: 297 294 CMD_DSC C1) = .INP_DSC (1); 


-PSECT S$PLITS,NOWRT,NOEXE,2 


15 

NCPMAIN Main Entr 1-52 1984 23:46:03 VAX-11 Bliss-32 V4.0-74 Page 9 
¥O6~000 NCPSREAD. CMD Read and buiid a command 12286874 382 $354 714 DISKSVMSMASTER: CNCP.SRC JNCPMAIN.B32; 1 . (4) | 
8 x | Read and skip connent Hawt! 
; ! Read and s comments : 
; 300 39 IF NOT (STATUS = : ‘ 
: 09 38 sclee tates amatin ! Read a Line ‘ 
: 30 00 CMD_DSC ! Into here ; 
> 304 8 01 .PMT_DSC, ! with this prompt : 
3; 305 8 «RTN_DSC ! Return descriptor here ‘ 
; 306 050 ) : 
; 307 8 04 ) ‘ 
; 308 B ; 
; 309 8 $ THEN RETURN .STATUS ! Return failure ‘ 
; 3106 0 WHILE CHSRCHAR (CHSPTR(.RTN_DSC [1]) ) : 
; 311 0308 EQLU ‘!" ! Comments begin with ! : 
; \¢ 0309 : ‘ 
ee 0310 : 
> 314 0311 dO ° 
ae 1h), 0 i BEGIN ; 
> 316 031 LAST_ADR = .RTN_DSC [1] + ! Address of last char + 1 ° 
3; 317 0314 -RTN_DSC [0]; ‘ 
; 318 Belz : 
3 39 0316 4 GIN : 
; 320 0317 4 LAST_ADR = .LAST_ADR = 1; ! Backup last address ° 
a 4 0318 4 CHAR = CHS$RCHA ! and fetch the character there ; 
; $6 0319 4 CHSPTR (.LAST_ADR) ) : 
3; ge 0320 4 END : ‘ 
: 324 0321 3 WHILE (.CHAR EQLU SPACE) OR ! Scan back until not blank ‘ 
3 325 05 : 4 (.CHAR EQLU TAB) : 
; 327 $35 : if .CHAR NEQU ‘=" ! If this is not a continuation Line : 
; 356 8352 THEN EXITLOOP ! nope, we are done ‘ 
; 340 0327 CMD_DSC [1] = .LAST_ADR: ' Read starting here ‘ 
; 331 0328 CMD~DSC CO] = .cmD_Bsc [0] i For the remaining space : 
; 3 0329 - .RTN_DSC’ [0] : 
: oe 0330 END ‘ 
; 334 0331 WHILE ‘ 
cae 03 ¢ ( : 
; $$ Oss STATUS = ° 
; 7? 4 NCPSREAD_LINE ! Read another Line : 
; a 0335 ( : 
; 339 0336 CMD DSC, : 
; 0 033 ASCID (*_ '), ! Prompt for continuation Lines | : 
; 1 Bee6 «RTN_DSC ° 
3 ¢ 9 | ° 
; 7 0340 ) : 
: 344 0341 : : 
: 345 0 4g RTN_DSC [0] = .LAST_ADR ! Return appropriate length 
; 346 4 - lINP_DBSC £1] +1; 
: 7 4 RTN_DSC C1) = .INP_DSC (1); ' and address 
; 348 45 RETORN .STATUS ! and the status code 
; 349 0346 END; 

| 

j 


04-000 


; Routine Size: 


| 
15 
Main Entr 18.32 -1984 23:46:03 VAX-11 Bliss-32 V4.0=-74 Pa 10 
NCPSREAD. CMD Read and build a command 14-Sep-19 4 93:28:93 DISKSVMSMASTER:CNCP.SRCINCPMAIN.B32:1 > ds 
00 00 5 0 14 P.AAE: .ASCII \_ \<0><0> 
00 00 2 18 P.AAD: <LONG 2 
0000° 0001C¢ “ADDRESS P.AAE | 
| 
.PSECT $CODE$,NOWRT,2 | 
007¢ 000 .ENTRY NCPSREAD_CMD, Save R2,R3,R4,R5,R6 : 0239 
56 000000006 00 9 03003 MOVAB NCPSREAD“LINE, R6 : 
SE 4 C2 0000 SUBL2 #4, SP : 
54 06 AC D 990 MOVL INP_DSC, R4 + 0293 
64 DD 0001 PUSHL : 
04 ag 04 A& DO 0001 MOVL  4(R4), CMD_DSC+4 + 0294 
5 0C AC DO 0001 MOVL TN_DSC, R3 + 0302 
53 DD 00018 1$ PUSHL : 
08 AC DD 0001D PUSHL PMT_DSC + 0301 
08 AE 9F 000 9 PUSHAB CMD~DSC + 0299 
be FB 000 CALLS #3, NCPSREAD_LINE : 
42 0 9 0026 BLBC STATUS, : 
21 06 B3 91 00029 CMPB  =s-«@4(R3). #33 : 0308 
EC 13 G8 D BEQL ; 
52 046 AB 63 C1 00 ef 38 ADDL3 (R3),_4(R3), LAST_ADR : 0314 
55 i 9A 00034 3$ MOVZBL -(LAST_ADR). CHAR : 0319 
20 55 D1 00037 CMPL HAR, #32 3; 0321 
£8 13 00054 BEQL : 
09 55 Di 0003C CMPL HAR, #9 + 0322 
F313 0003F BEQL : 
20 55 pi 00041 CMPL CHAR, #45 + 0324 
18 12 00044 BNEQ 4$ : 
04 AE 5¢ 06 06046 MOVL LAST ADR. CMD_DSC+4 : 0327 
6E 63 C2 CO04A SUBL2 (R3)> CMD_DSC + 0329 
53 DD 00040 PUSHL R3 : 0338 
00000000' 00 9F 0004F PUSHAB P.AAD + 0337 
08 AE 9F 00055 PUSHAB CMD_DSC + 0335 
66 03 FB 00058 CALLS #3, NCPSREAD_LINE : 
D1 50 €8 00058 BLBS STATUS, 2$ : 
58 06 Ad C2 O005E 4$ SUBL2  4(R4), R2 > 0343 
6 01 A2 9E 0006 MOVAB 1(R2). (R3) : 
04 A’ 04 A& DO 00066 MOVL 4 (R4), 4(R3) > 0344 
04 00068 5$: RET + 0346 


108 bytes, Routine Bese: S$CODE$S + OOAD 


6 


p 
SIGARY : REF BBLOCK, 
MCHARY : REF BBLOCK 


y) 
98 


Signal array 
Mechanism array 


LOCA 


L 
ERRCODE : BBLOCK [4] Error code value 


eis LITERAL 


15 | 

NCPMAIN Main Entr 18-52 1984 23:46:03 VAX-11 Bliss-32 V4.0-74 P 1 

yO6~000 NCPSCOND. HDLR Condition handler 12-Sep-19 4 $3:08:93 DLEKSVMGMASTER GENCE. SRCINCPMAIN.B32:7° 9° 5) 

; 351 47 1 ZSBTTL "NCPSCOND_HDLR Condition handler’ : 
: ¢ rk : ROUTINE NCPSCOND_RDLR (SIGARY, MCHARY) = : 
; 354 0 1 I+ | ; 
: 5 i | } FUNCTIONAL DESCRIPTION: : 
; ; ; 1} Main condition handler for NCP. It receives a signal which is : 
; 8 ® 3: either an internal error or a standard system status. If it is ° 
: 9 .°o 9 an internal error, it prints a message. Otherwise it resignals . 
: r¢ $ } the condition. ; 
; ; é i FORMAL PARAMETERS: | 
; 364 60 1: Standard condition handler argument List ; 
; 365 6) 1! SIGARY Address of signal array $ 
3 $8 6¢ ; MCHARY Address of mechanism array : 
: 368 0364 1 | IMPLICIT INPUTS: | ; 
; 369 tee 1! 3 
: 370 0 1! NONE | ; 
; 371 0367 1! : 
ae 0368 1 ! IMPLICIT OUTPUTS: : 
s 37 B38? 1! 3 
; 74 0370 1! NONE : 
3; 37s 0371 1! 3 
; 376 B36 1 ! ROUTINE VALUE: ; 
: 77 Bee 1 ! COMPLETION CJDES: : 
: 378 0374 1! ; 
; 379 0375 1! Condition Resignaled, stack unwound | : 
; 380 0376 1! 3 
; 81 0377 1°! SIDE EFFECTS: $ 
3 o¢ 0378 1! 3 
; 0379 1! NONE ; 
; 384 0380 1! ; 
; 385 0381 1 !-- 3 
; 386 Oaee 1 3 
: 87 038 BEGIN é 
; 388 0384 ; 
: 389 0385 3 
; 390 0386 3 
3 0387 3 
; 0 3 
0 | 
; ; ee 
3 ; 3 NCPS_FACILITY ! NCP Facility code | 

; 4 , 

3 2 ERRCODE = .SIGARY CCHFSL_SIG_NAMEJ; ! The value of the status code 

; 4 IF .ERRCODE [STS$V_FAC_NO) ! Is it ours? | 

; EQL NCPS_FACILITY : 

Py > yes j 
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NC COND. HDLR Condition handler 12-808-13be 93:28:93 DISKSVMSMASTER: CNCP.SRCIJNCPMAIN.B32;1 ” (5) 


SIGARY ECHF SS SIG_ARGS) = ! Make signal array into message vec 
-SIGARY CCHFSC_SIG_ARGS] - 2; 

unre : Write the message out 
MSGVEC = .SIGARY 


SIGARY CCHFSt SI1G_ARGS) = ! Make mess vec into signal array 
«SIGARY CCHFSC_SIG_ARGS] + 2 


a 


= 


ELSE 
RETURN SS$_RESIGNAL ! Signal the error to the next handler 


aan CCHFSL_MCH_SAVRO] = SUCCESS;! Set success for status on unwind 
i CSIGARY CCHFSL_SIG_NAME], STSS$V_SEVERITYJ 
STSSK_SEVERE 
THEN 
BEGIN 


! If severe error then unwind 


! Unwind the stack to the caller 
! of the geyans Taner 
1a (DEPADR = MCHARY CCHFSL_MCH_DEPTH) ) 


RETURN SS$_CONTINUE ! Otherwise, continue from error 
END; 


WWAAA AAI AI AIP NINYNININND 2 2 OOOO OO OO ew 
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-EXTRN NCP$_FACILITY, SYSSPUTMSG 
-EXTRN SYSSONWIND 


0004 00000 NCPSCOND_HDLR: 
“WORD 


Save ; 0348 
52 04 AC 00 00002 MOVL SIGARY, R2 : 0398 
04 A2 00 9006 MOVL 4(R2) ERRCODE : 
50 0c 1 FD A CMPZ2V #16, #12, ERRCODE, #NCPS_FACILITY > 0401 
62 63 C5 ooot8 enero ae. (RO) : 0405 
9 sé 0018 CLRQ. 2s = (§P) : 0409 
43 D4 OO1A CLRL = = (SP) ; 
DD 0001C PUSHL R2 : 
000000006 0 4 FB 001 CALLS #4, SYSSPUTMSG : 
6 . e ADDL a2. (R2) > 0411 
6 11 BRB 2 + 0410 
50 0918 8F 3¢ A 1$: MOVZUL #2328, RO ; 0414 
50 08 AC pe 23: MOVL MCHARY, RO : 0417 
Oc Ad 01 D MOVL #1, 12¢RO) ; 


] 
| 
| 
| 
! 
: Perform cleanup operations here 
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04 04 A2 03 CMPZV 0. #3, 4(R2), #4 
BNEQ 3 


0 8 
go §B aa 
p 4 CLRL =(SP) 
08 A F 4 PUSHAB 8(RO) 
000000006 98 8 fe 3 CALLS #2, SYSSUNWIND 
0 1 Boer 3$: pe #1, RO 


; Routine Size: 80 bytes, Routine Base: S$CODE$ + 0119 
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went 


NEPSCOND HOLR Condition handler 


‘End of module 


Attributes 


RD ,NOEXE,NOSHR, 


° » EXE,NOSHR, 
Symbols -<------- 
Loaded Percent 

5 1 

14 0 

0 0 
IERS 


4 15 
15-Sep-1984 
14-Sep-1984 


a 2:82 


Pages 
Mapped 


52 
581 
14 


VAX-11 Bliss-32 V4.0-74 age 
DISKSVMSMASTER: NCE” SRC NCPMAIN.B32; ( 


o— 
ee 


CON,NOPIC,ALIGN(2) 
CON,NOPIC,ALIGN(2) 
CON,NOPIC,ALIGN(2) 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:NCPMAIN/OBJ=OBJ$:NCPMAIN MSRC$:NCPMAIN/UPDATE=(ENHS:NCPMAIN) 


PSECT SUMMARY 
Name Bytes 
SOWNS 1032 NOVEC, WRT, 
SPLITS 32 NOVEC, *NOWRT, 
SCODES 361 NOVEC,NOWRT 
Library Statistics 
File Total 
“BS 3 3SDUACE: NCP.OBJINCPLIBRY b3¢51 373 
“$255$DUA28: SYSLIBISTARLET L3 4 9776 
“$255$DUA28: (SYSLIBJTPAMAC.L32; 1 42 
COMMAND QUALIF 
Size: 361 code + 1064 data bytes 
un Time 0:09.1 
hay Tine: 0:31.5 
Lines/CPU Min: $3; 
Lexenes/CPU-Rin: 1507 


Memor ry Us 74 pages 
Compi olen Complete 
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